home *** CD-ROM | disk | FTP | other *** search
/ Games Central GT Digital… Q1 Premier Trimestre '99 / GAME_CENTRAL.ISO / pc / data / aladdin.cst / 00028_Script_text Copy Xtra - do not change < prev    next >
Text File  |  1999-04-27  |  1KB  |  38 lines
  1. on textcopy
  2.   
  3.   gamecheck
  4.   
  5.   if the platform contains   "Mac" then
  6.     mactextcopy
  7.   else
  8.     openXLib "Xtras\filecopy"  -- custom xtra
  9.     set filename = the pathName&"text\"&the name of cast the mousecast
  10.     if fileName > "" then
  11.       set wFileName = doSaveAsDlg(the pathName&"text\"&the name of cast the mousecast, "Word@*.rtf")
  12.       if wFileName > "" then
  13.         set result = copyFile(wFileName, fileName) -- this is the call that does the copying
  14.         put result
  15.       end if  
  16.     end if
  17.     closeXLib "Xtras\filecopy"
  18.   end if
  19. end 
  20.  
  21. on mactextcopy
  22.   
  23.   openXLib ":Xtras:macxtra:filecopy"  -- custom xtra
  24.   
  25.   set fileName = the pathName&"text:"&the name of cast the mousecast  -- Display Open Dialog and return the fileName
  26.   if fileName > "" then
  27.     put filename
  28.     set loc = "desktop folder:"
  29.     set wFileName = doSaveAsDlg(loc&the name of cast the mousecast, "word files@*.rtf")
  30.     if wFileName > "" then   
  31.       put wfilename
  32.       set result = copyFile(wFileName, fileName) -- this is the call that does the copying
  33.       put result
  34.     end if  
  35.   end if
  36.   closeXLib ":Xtras:macxtra:filecopy"
  37.   abort
  38. end